home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Arsenal Files 6
/
The Arsenal Files 6 (Arsenal Computer).ISO
/
spitfire
/
pb-2fpc.zip
/
PB-SF.PAS
< prev
Wrap
Pascal/Delphi Source File
|
1995-04-04
|
3KB
|
88 lines
{Converter program - ProBoard Door.Sys To Spitfire Sfdoors.Dat}
{For Use with SF-ROM}
{(C) 1995 Brian Leiter, All Rights Reserved}
Program PB_SF;
Uses Dos;
Var DoorSYS : Array[1..52] of String[40];
F1,F2 : Text;
Count,Code : Integer;
S : String;
I,H2,M2,
SecSinceMid : LongInt;
H,M,S2,Hund : Word;
Procedure TimeIs;
Begin
GetTime(H,M,S2,Hund);
H2:=H*360;
H2:=H2*10;
M2:=M*60;
SecSinceMid:=H2+M2;
End;
Procedure Start;
Begin
GetDir(0,S);
Assign(F1,'DOOR.SYS');
FileMode:=2;
{$I-}Reset(F1){$I+};
If IOResult <> 0 Then
Begin
Writeln('■ ERROR ■ DOOR.SYS Was Not Found!');
Halt;
End
Else
For Count:=1 To 52 Do Readln(F1,DoorSYS[Count]);
Assign(F2,'SFDOORS.DAT');
Rewrite(F2);
Writeln(F2,DoorSys[26]); {User RecNum}
Writeln(F2,DoorSys[10]); {User Full Name}
Writeln(F2,'PASSWORD'); {Fake Password}
Writeln(F2,DoorSys[10]); {Fake First Name}
Writeln(F2,DoorSys[2]); {User Baud Rate}
If DoorSys[1]='COM0:'Then Writeln(F2,'0'); {Comport}
If DoorSys[1]='COM1:'Then Writeln(F2,'1');
If DoorSys[1]='COM2:'Then Writeln(F2,'2');
If DoorSys[1]='COM3:'Then Writeln(F2,'3');
If DoorSys[1]='COM4:'Then Writeln(F2,'4');
If DoorSys[1]='COM5:'Then Writeln(F2,'5');
If DoorSys[1]='COM6:'Then Writeln(F2,'6');
If DoorSys[1]='COM7:'Then Writeln(F2,'7');
If DoorSys[1]='COM8:'Then Writeln(F2,'8');
Writeln(F2,DoorSys[19]); {Time Left}
Writeln(F2,SecSinceMid); {Sec Since Mid}
Writeln(F2,S,'\'); {Path}
If DoorSys[20]='GR' Then Writeln(F2,'TRUE') {ANSI}
Else Writeln(F2,'FALSE');
Writeln(F2,DoorSys[15]); {Security}
Writeln(F2,DoorSys[28]); {Uploads}
Writeln(F2,DoorSys[29]); {Downloads}
Writeln(F2,DoorSys[19]); {Time}
Writeln(F2,SecSinceMid); {Mid}
Writeln(F2,'0'); {ExtraTime}
Writeln(F2,'FALSE'); {SysOp Next}
Writeln(F2,'TRUE'); {FrontEnd}
Writeln(F2,'FALSE'); {Softflow}
Writeln(F2,DoorSys[5]); {Locked MaxBaud}
If DoorSys[38]='Y' Then Writeln(F2,'TRUE') {Error Correction}
Else Writeln(F2,'FALSE');
Writeln(F2,'1'); {LastMsg}
Writeln(F2,'1'); {LastFile}
Writeln(F2,DoorSys[4]); {Node}
Writeln(F2,'0'); {Files}
Writeln(F2,DoorSys[47]); {DL Today}
Writeln(F2,DoorSys[31]); {Daily Limit KB Day}
Writeln(F2,DoorSys[30]); {Daily KB Total}
Writeln(F2,DoorSys[48]); {Total KB UL}
Writeln(F2,DoorSys[49]); {Total KB DL}
Writeln(F2,DoorSys[12]); {Phone}
Writeln(F2,DoorSys[11]); {Location}
Writeln(F2,DoorSys[19]); {Maxtime}
Writeln(F2,'FALSE'); {RIP}
Close(F1);
Close (F2);
Halt;
End;
Begin
Timeis;
Start;
End.